home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_200 / 231_01 / new.st < prev    next >
Encoding:
Text File  |  1987-06-15  |  256 b   |  28 lines
  1. Class Acl
  2. | vara |
  3. [
  4.     new
  5.         vara <- 'correct'
  6. |
  7.     printa
  8.         vara print
  9. ]
  10.  
  11. Class Bcl :Acl
  12. | varb |
  13. [
  14.     new
  15.         varb <- 'correct'
  16. |
  17.     printb
  18.         varb print
  19. ]
  20.  
  21. Class Main
  22. [
  23.     main        | i |
  24.         i <- Bcl new .
  25.         i printb .
  26.         i printa
  27. ]
  28.